home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / oper_sys / emerald / emrldsys.lha / Language / ExecTests / tarray.m < prev    next >
Encoding:
Text File  |  1990-08-31  |  1.1 KB  |  47 lines

  1. import runtest from "RunTest"
  2.  
  3. const tarray <- object tarray
  4.   const myTest == runtest.create[stdin, stdout, "tarray"]
  5.   process
  6.     const aoi == Array.of[Integer]
  7.     var a, b : aoi
  8.     var i : Integer
  9.     a <- aoi.empty
  10.     myTest.check[a.lowerbound = 0, "a.lowerbound = 0"]
  11.     myTest.check[a.upperbound = ~1, "a.upperbound = ~1"]
  12.  
  13.     a.addUpper[0]
  14.     myTest.check[a.lowerbound = 0, "a.lowerbound = 0"]
  15.     myTest.check[a.upperbound = 0, "a.upperbound = 0"]
  16.     
  17.     i <- 1
  18.     loop
  19.       exit when i >= 10
  20.       a.addUpper[i]
  21.       i <- i + 1
  22.     end loop
  23.  
  24.     i <- 0
  25.     loop
  26.       exit when i >= 10
  27.       myTest.check[a(i) = i, "a(i) = i"]
  28.       i <- i + 1
  29.     end loop
  30.  
  31.     b <- a.getSlice[4, 0]
  32.     myTest.check[b.lowerbound = 4, "b.lowerbound = 4"]
  33.     myTest.check[b.upperbound = 3, "b.upperbound = 3"]
  34.     
  35.     b <- a.getSlice[4, 5]
  36.     myTest.check[b.lowerbound = 4, "b.lowerbound = 4"]
  37.     myTest.check[b.upperbound = 8, "b.upperbound = 8"]
  38.     i <- b.lowerbound
  39.     loop
  40.       exit when i > b.upperbound
  41.       myTest.check[b(i) = i, "b(i) = i"]
  42.       i <- i + 1
  43.     end loop
  44.     myTest.done
  45.   end process
  46. end tarray
  47.